home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / arc / XFH / src / Lib / bcpl.c < prev    next >
C/C++ Source or Header  |  1991-07-25  |  497b  |  30 lines
  1. /* bcpl.c - ugly BCPL conversion stuff. */
  2.  
  3. #include <exec/types.h>
  4.  
  5. #include <dossupport.h>
  6.  
  7. #include <string.h>
  8.  
  9.  
  10. BSTR cstr2b(char *cstr, UBYTE *buf){
  11.    register UBYTE len;
  12.    
  13.    *buf = len = strlen(cstr);
  14.    strncpy(buf+1,cstr,len);
  15.    return (BSTR)( (ULONG)buf >> 2 );
  16. }
  17.  
  18.  
  19. char *bstr2c(BSTR bstr, UBYTE *buf){
  20.    register UBYTE len;
  21.    register char *p;
  22.    
  23.    p = (char *)(bstr << 2);
  24.    len = *p++;
  25.    strncpy(buf, p, len);
  26.    buf[len] = '\0';
  27.    return (char *)buf;
  28. }
  29.  
  30. /* End of bcpl.c */